home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / misc / ispell31.lha / ispell-3.1.18src / Amiga / interfaces / GUISpell-1.1 / libraries.c < prev    next >
C/C++ Source or Header  |  1992-09-26  |  683b  |  34 lines
  1. #pragma msg 148 ignore push
  2. #pragma msg 149 ignore push
  3. #pragma msg 61 ignore push
  4. #include <proto/exec.h>
  5. #pragma msg 149 pop
  6. #pragma msg 61 pop
  7. #define INCLUDE_LIBS_STRUCT
  8. #include "libraries.h"
  9. #include "error.h"
  10.  
  11. extern char *_ProgramName;
  12.  
  13. void OpenLibraries (void)
  14. {
  15.   int i;
  16.  
  17.   for (i = 0; libs[i].name; i++)
  18.     if (!(libs[i].base = OpenLibrary (libs[i].name, libs[i].version)))
  19.       Error ("ssssds", _ProgramName, ": Can't open needed library (",
  20.          libs[i].name, " version ", libs[i].version, ")!\n");
  21. }
  22.  
  23. void CloseLibraries (void)
  24. {
  25.   int i;
  26.  
  27.   for (i = 0; libs[i].name; i++)
  28.     {
  29.       if (libs[i].base)
  30.     CloseLibrary (libs[i].base);
  31.       libs[i].base = 0;
  32.     }
  33. }
  34.